Namespace B1AddonBase

    Public MustInherit Class B1BaseEventInfo
        Public EventType As SAPbouiCOM.BoEventTypes
        Public IsBeforeAction As Boolean
    End Class

    Public Class B1FormEventInfo
        Inherits B1BaseEventInfo
        Public FormType As String
        Public ItemUID As String
        Public Column As String
        Public row As Integer

        Public Sub New()
        End Sub

        Public Sub New(ByVal IsBeforeAction As Boolean, ByVal FormType As String, ByVal ItemUID As String, ByVal EventType As SAPbouiCOM.BoEventTypes, ByVal colUID As String, ByVal row As Integer)
            Me.IsBeforeAction = IsBeforeAction
            Me.IsBeforeAction = IsBeforeAction
            Me.FormType = FormType
            Me.ItemUID = ItemUID
            Me.EventType = EventType
            Me.Column = colUID
            Me.row = row
        End Sub
    End Class

    Public Class B1MenuEventInfo
        Inherits B1BaseEventInfo
        Private _MenuID As String

        Public Sub New()

        End Sub
        Public Sub New(ByVal menuID As String, ByVal IsBeforeAction As Boolean)
            Me.MenuID = menuID
            Me.IsBeforeAction = IsBeforeAction
        End Sub
        Public Property MenuID()
            Get
                Return Me._MenuID
            End Get
            Set(ByVal value)
                Me._MenuID = value
            End Set
        End Property
    End Class


End Namespace